<?

// LAUFTEXT MAKER

define('COLS',18);
define('ROWS',8);

/* Life sucks
$a[0] = "0000000000000000000000000000000000000000000000000000000000000000000000000000000000000";
$a[1] = "0000000000000000001100000110011111001111100000001111001100110000111100110011000111100";
$a[2] = "0000000000000000001100000110011000001100000000010000001100110001100000110110001000000";
$a[3] = "0000000000000000001100000110011000001111100000001100001100110011000000111100000110000";
$a[4] = "0000000000000000001100000110011111001111100000000110001100110011000000111100000001100";
$a[5] = "0000000000000000001100000110011000001100000000000001001100110001100000110110000000010";
$a[6] = "0000000000000000001111100110011000001111100000011110000111100000111100110011000111100";
$a[7] = "0000000000000000000000000000000000000000000000000000000000000000000000000000000000000";
*/

function buildstring($string) {
	
	/* Buchstaben */
	
		$char[' '][0] = "00000";
		$char[' '][1] = "00000";
		$char[' '][2] = "00000";
		$char[' '][3] = "00000";
		$char[' '][4] = "00000";
		$char[' '][5] = "00000";
		$char[' '][6] = "00000";
		$char[' '][7] = "00000";

		$char['A'][0] = "00000000";
		$char['A'][1] = "00111100";
		$char['A'][2] = "01100110";
		$char['A'][3] = "01100110";
		$char['A'][4] = "01111110";
		$char['A'][5] = "01100110";
		$char['A'][6] = "01100110";
		$char['A'][7] = "00000000";

		$char['B'][0] = "00000000";
		$char['B'][1] = "01111100";
		$char['B'][2] = "01100110";
		$char['B'][3] = "01111100";
		$char['B'][4] = "01111100";
		$char['B'][5] = "01100110";
		$char['B'][6] = "01111110";
		$char['B'][7] = "00000000";

		$char['C'][0] = "00000000";
		$char['C'][1] = "00011110";
		$char['C'][2] = "00110000";
		$char['C'][3] = "01100000";
		$char['C'][4] = "01100000";
		$char['C'][5] = "00110000";
		$char['C'][6] = "00011110";
		$char['C'][7] = "00000000";

		$char['E'][0] = "00000000";
		$char['E'][1] = "01111110";
		$char['E'][2] = "01100000";
		$char['E'][3] = "01100000";
		$char['E'][4] = "01111110";
		$char['E'][5] = "01100000";
		$char['E'][6] = "01111110";
		$char['E'][7] = "00000000";

		$char['F'][0] = "00000000";
		$char['F'][1] = "01111110";
		$char['F'][2] = "01100000";
		$char['F'][3] = "01100000";
		$char['F'][4] = "01111110";
		$char['F'][5] = "01100000";
		$char['F'][6] = "01100000";
		$char['F'][7] = "00000000";

		$char['I'][0] = "0000";
		$char['I'][1] = "0110";
		$char['I'][2] = "0110";
		$char['I'][3] = "0110";
		$char['I'][4] = "0110";
		$char['I'][5] = "0110";
		$char['I'][6] = "0110";
		$char['I'][7] = "0000";

		$char['K'][0] = "00000000";
		$char['K'][1] = "01100110";
		$char['K'][2] = "01101100";
		$char['K'][3] = "01111000";
		$char['K'][4] = "01111000";
		$char['K'][5] = "01101100";
		$char['K'][6] = "01100110";
		$char['K'][7] = "00000000";

		$char['L'][0] = "00000000";
		$char['L'][1] = "01100000";
		$char['L'][2] = "01100000";
		$char['L'][3] = "01100000";
		$char['L'][4] = "01100000";
		$char['L'][5] = "01100000";
		$char['L'][6] = "01111110";
		$char['L'][7] = "00000000";

		$char['R'][0] = "00000000";
		$char['R'][1] = "01111100";
		$char['R'][2] = "01100110";
		$char['R'][3] = "01100110";
		$char['R'][4] = "01111000";
		$char['R'][5] = "01101100";
		$char['R'][6] = "01100110";
		$char['R'][7] = "00000000";

		$char['S'][0] = "0000000";
		$char['S'][1] = "0001110";
		$char['S'][2] = "0110000";
		$char['S'][3] = "0011000";
		$char['S'][4] = "0001100";
		$char['S'][5] = "0000110";
		$char['S'][6] = "0111000";
		$char['S'][7] = "0000000";

		$char['T'][0] = "00000000";
		$char['T'][1] = "01111110";
		$char['T'][2] = "00011000";
		$char['T'][3] = "00011000";
		$char['T'][4] = "00011000";
		$char['T'][5] = "00011000";
		$char['T'][6] = "00011000";
		$char['T'][7] = "00000000";

		$char['U'][0] = "00000000";
		$char['U'][1] = "01100110";
		$char['U'][2] = "01100110";
		$char['U'][3] = "01100110";
		$char['U'][4] = "01100110";
		$char['U'][5] = "01100110";
		$char['U'][6] = "00111100";
		$char['U'][7] = "00000000";

		$char['W'][0] = "000000000000";
		$char['W'][1] = "011001100110";
		$char['W'][2] = "011001100110";
		$char['W'][3] = "001101101100";
		$char['W'][4] = "001110011100";
		$char['W'][5] = "000110011000";
		$char['W'][6] = "000110011000";
		$char['W'][7] = "000000000000";
	
	/* Buchstaben Ende */
	
	$result = array();
	
	for($j = 0; $j<ROWS; $j++) {
		$result[$j] = '';
		
		for($i = 0; $i<strlen($string); $i++) {
			$result[$j] .= $char[$string[$i]][$j];
		}
	}
	
	return $result;
}

$a = buildstring('       LIFE SUCKS  ');

$delay = 150;

echo " # BlinkenLights Movie 18x8<br>\n<br>\n";

for($i=0; $i<strlen($a[0])-COLS+1;$i++) {
	echo "@".$delay."<br>\n";
	for($j=0;$j<ROWS;$j++) {
		for($k=0;$k<COLS;$k++) {
			echo $a[$j][$i+$k];
		}
		echo "<br>\n";
	}
	echo "<br>\n";
}

?>